COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	
C00004 ENDMK
C⊗;

(DE FIND (F M N)
((LAMBDA(Z)
(COND((EQ Z F)(PRINTARRAY))
     ((GREATERP Z  F)(FIND  F M Z))
     (T (FIND  F  Z N))
     ))(SPLIT (A F) M N)) )


(DE SPLIT (F I J)
	(COND
	 ((NOT(LESSP I J)) J)
	 ((LESSP (A I)  F)(SPLIT F (ADD1 I) J))
	 ((NOT(GREATERP (A J) F))(PROG2(EXCH I J)(SPLIT F  (ADD1 I) (SUB1 J))))
	 (T ( SPLIT F I (SUB1 J)))
	))

(DE EXCH (I J)(PROG(X)(SETQ X (A I))(STORE(A I)(A J))(STORE (A J) X)))

(ARRAY A T 5)

(DF SETARRAY (L)
 (PROG (I)
(SETQ I 0)
L(STORE (A I)(CAR L))
(SETQ L (CDR L))
(COND(L(SETQ I(ADD1 I))(GO L)))
))

(DE PRINTARRAY()
(PROG (I)(SETQ I 0)
L(PRINT(A  I))
(SETQ I(ADD1 I))
(GO L)))

(SETARRAY 5 4 3 2 6)